From 05cf4426bae3e17df5a6e8af31cffd39975220e2 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Jun 1993 03:24:24 +0000 Subject: [PATCH] (outline-flag-region): Pass t as NOUNDO arg to subst-char-in-region. No need to restore buffer-modified-p by hand. --- lisp/textmodes/ooutline.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index c0241102d1c..aac0d890126 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -215,13 +215,10 @@ A heading line is one that starts with a `*' (or that "Hides or shows lines from FROM to TO, according to FLAG. If FLAG is `\\n' (newline character) then text is shown, while if FLAG is `\\^M' (control-M) the text is hidden." - (let (buffer-read-only - (modp (buffer-modified-p))) - (unwind-protect - (subst-char-in-region from to - (if (= flag ?\n) ?\^M ?\n) - flag) - (set-buffer-modified-p modp)))) + (let (buffer-read-only) + (subst-char-in-region from to + (if (= flag ?\n) ?\^M ?\n) + flag t))) (defun hide-entry () "Hide the body directly following this heading." -- 2.30.2